>> Sample FrontDoor batch file (Shell to mailer) <<
>> (c) John Barton,  RemoteAccess HQ Europe <<


 Echo Off
 Cls
 Device c:\zansi.sys
 Bnuhlp /C
 :Loop
 f:
 cd\ra
 If Exist g:\trivia\*.mem Del g:\trivia\*.mem
 If Exist g:\files\nodediff.* goto newnode
 If exist f:\qmxout\bat1mail.* Del f:\qmxout\bat1mail.*
 If Exist f:\qmx\744A????.* copy f:\qmx\744A????.* f:\qmxfiles
 If Exist f:\qmx\744A????.* Del f:\qmx\744A????.*
  RA -mH:\FD\Fd.exe*M -E20
  If Errorlevel 170 Goto Hilmar
  If Errorlevel 130 Goto Weekly
  If Errorlevel 120 Goto Makenl
  If Errorlevel 110 Goto Qmxmail
  If Errorlevel 100 Goto Local
  If Errorlevel 80 Goto Pack
  If Errorlevel 70 Goto Clean
  If Errorlevel 60 Goto Newnode
  If Errorlevel 50 Goto Unpackmail
  If Errorlevel 36 Goto BBScall
  If Errorlevel 35 Goto BBScall
  If Errorlevel 34 Goto BBScall
  If Errorlevel 33 Goto BBScall
  If Errorlevel 32 Goto BBScall
  If Errorlevel 31 Goto BBScall
  If Errorlevel 30 Goto Test
  If errorlevel 20 Goto Loop
  If errorlevel 10 goto Out
  If Errorlevel  5 goto BBScall
  If Errorlevel  4 Goto BBScall
  If Errorlevel  3 Goto BBScall
  Goto Loop

 :BBScall
 f:
 cd\ra
 Goto Loop

 :Qmxmail
 Copy f:\qmxfiles\744A????.* g:\files
 Del f:\qmxfiles\744A????.*
 h:
 cd \fd
 Tosscan Toss /nomgr
 Amgrfix
 Tosscan mgr
 Tsutil Link -t -f import.xyz
 Goto Loop

 :Local
 f:
 cd\ra
 RA -L
 Goto Loop


 :Restart_RA
 Echo Please WAIT! Returning to BBS..... >Com2
 f:
 cd \ra
 RA -R -C2 -E0
   Goto Loop

 :After_RA
       if errorlevel 6 goto outside
       if errorlevel 5 goto both
       if errorlevel 4 goto echo
       if errorlevel 3 goto Net
          goto Loop

 :Weekly
 f:
 cd\ra
 RaNode signodes.* eegglist.* fnwlist.* gmnlist.* netlist.* netalist.*
 Copy f:\ra\*.log h:\logs
 Copy h:\fd\fd.log h:\logs
 Del f:\ra\*.log
 Del h:\fd\fd.log
 Goto Loop

 :Clean
 f:
 cd \ra
 Remotlog
 Tick.exe
 Rabest.exe 10
 Rauser -P -V
 h:
 cd \fd
 Tsutil Maint -o -r
 f:
 cd f:\ra\txtfiles
 maxi f:\ra
 cd\ra
 Qfc.exe
 Availist
 cd\tw
 Twmaint /l /b
 Optune f: /on
 goto Loop

 :Outside
 Ctty Com2:
 Command
 f:
 cd \ra
 goto after_quick
 ctty con


 :Unpackmail
       h:
       cd\fd
       Tosscan toss /nomgr
        Amgrfix
         Tosscan mgr
         Tsutil Link -t -f import.xyz
         Tsutil Import -f
         Goto Loop
 :Hilmar
          If Exist g:\packets\0000f4f0.* Copy g:\packets\0000f4f0.* h:\hilmar
             Del g:\packets\0000f4f0.*
          goto Loop

 :finish_quick
       f:
       cd \ra
           goto Loop

 :Pack
     h:
    cd\fd
     Tosscan scan /nomgr
      Amgrfix
       Tosscan mgr
       Tsutil export -A -K
       goto Loop


 :Newnode
 g:
 cd \files
 if NOT EXIST Nodediff.* goto Loop
 Pkxarc -r Nodediff.* e:\nodelist
 Pkxarc -r Eeggdiff.* e:\nodelist
 Pkxarc -r netdiff.* e:\nodelist
 Pkxarc -r chatdiff.* e:\nodelist
 f:
 cd\ra
 Robo Nodediff
 e:
 cd \nodelist
 Xlaxdiff /o=e:\nodelist\nodelist. /e=e:\nodelist\nodediff.
 Xlaxdiff /o=e:\nodelist\eegglist. /e=e:\nodelist\eeggdiff.
 Xlaxdiff /o=e:\nodelist\netlist. /e=e:\nodelist\netdiff.
 Xlaxdiff /o=e:\nodelist\chatlist. /e=e:\nodelist\chatdiff.
 xlaxnode
 h:
 cd \fd
 Fdnc /f
 Del e:\nodelist\nodediff.*
 goto Loop

 :Makenl
 cls
 Echo Weekly Nodediff Processing for Net 257....
 if exist g:\netfiles\n257list.* del g:\netfiles\n257list.*
 if exist g:\netfiles\n8list.* del g:\netfiles\n8list.*
 e:
 cd \newmake
 makenl >> makenl.log
 Rem Makenl cnet4408.ctl >> Makenl.log
 if exist g:\netfiles\n257list.* copy g:\netfiles\n257list.* e:\newmake
 if exist g:\netfiles\n8list.* copy g:\netfiles\n8;list.* e:\newmake
 if exist g:\netfiles\n257list.* copy g:\netfiles\n257????.* e:\nodelist
 if exist g:\netfiles\n8list.* copy g:\netfiles\n8list.* e:\nodelist
 f:
 cd \ra
 goto loop

 :Out
  cls
  f:
  cd\ra